home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1999 January / PC Plus Super CD No55a (PCP-147A-1-99) (Disc 1) (1998).iso / linux / developers / visualtcl / windows / vtcl / demo / tclet-combo.tcl < prev    next >
Encoding:
Text File  |  1997-03-27  |  4.0 KB  |  135 lines
  1. #################################
  2. # GLOBAL VARIABLES
  3. #
  4. global x_accel; set x_accel {}
  5. global x_label; set x_label {}
  6. global widget; 
  7. #################################
  8. # USER DEFINED PROCEDURES
  9. #
  10. proc init {argc argv} {
  11.  
  12. }
  13.  
  14. init $argc $argv
  15.  
  16.  
  17. proc main {argc argv} {
  18.  
  19. }
  20.  
  21. proc Window {args} {
  22. global vTcl
  23.     set cmd [lindex $args 0]
  24.     set name [lindex $args 1]
  25.     set rest [lrange $args 2 end]
  26.     if {$name == "" || $cmd == ""} {return}
  27.     set exists [winfo exists $name]
  28.     switch $cmd {
  29.         show {
  30.             if {[info procs vTclWindow(pre)$name] != ""} {
  31.                 vTclWindow(pre)$name $rest
  32.             }
  33.             if {[info procs vTclWindow$name] != ""} {
  34.                 vTclWindow$name
  35.             }
  36.             if {[info procs vTclWindow(post)$name] != ""} {
  37.                 vTclWindow(post)$name $rest
  38.             }
  39.         }
  40.         hide    { if $exists {wm withdraw $name; return} }
  41.         iconify { if $exists {wm iconify $name; return} }
  42.         destroy { if $exists {destroy $name; return} }
  43.     }
  44. }
  45.  
  46. #################################
  47. # VTCL GENERATED GUI PROCEDURES
  48. #
  49. frame .01 \
  50.     -background #a0d9d9 -borderwidth 1 -height 108 -relief sunken -width 93 
  51. grid .01 \
  52.     -column 0 -row 0 -columnspan 1 -rowspan 1 -padx 5 -pady 5 -sticky nesw 
  53. button .01.02 \
  54.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  55.     -highlightthickness 0 -padx 9 -pady 3 -text We 
  56. place .01.02 \
  57.     -x 10 -y 10 -anchor nw -bordermode ignore 
  58.  
  59. button .01.03 \
  60.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  61.     -highlightthickness 0 -padx 9 -pady 3 -text are 
  62. place .01.03 \
  63.     -x 40 -y 40 -width 55 -height 24 -anchor nw -bordermode ignore 
  64.  
  65. button .01.04 \
  66.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  67.     -highlightthickness 0 -padx 9 -pady 3 -text placed 
  68. place .01.04 \
  69.     -x 20 -y 75 -anchor nw -bordermode ignore 
  70.  
  71.  
  72. frame .05 \
  73.     -background #d9a0d9 -borderwidth 1 -height 30 -relief sunken -width 30 
  74. grid .05 \
  75.     -column 1 -row 0 -columnspan 1 -rowspan 1 -padx 5 -pady 5 -sticky nesw 
  76. button .05.06 \
  77.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  78.     -highlightthickness 0 -padx 9 -pady 3 -text We're 
  79. pack .05.06 \
  80.     -anchor center -expand 1 -fill both -padx 2 -pady 2 -side top 
  81.  
  82. button .05.07 \
  83.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  84.     -highlightthickness 0 -padx 9 -pady 3 -text packed 
  85. pack .05.07 \
  86.     -anchor center -expand 0 -fill x -padx 2 -pady 2 -side top 
  87.  
  88.  
  89. frame .08 \
  90.     -background #d9d9a0 -borderwidth 1 -relief sunken -width 30 
  91. grid .08 \
  92.     -column 0 -row 1 -columnspan 2 -rowspan 1 -padx 5 -pady 5 -sticky nesw 
  93. button .08.09 \
  94.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  95.     -highlightthickness 0 -padx 9 -pady 3 -text And -width 5 
  96. grid .08.09 \
  97.     -column 0 -row 0 -columnspan 1 -rowspan 1 -padx 2 -pady 2 
  98.  
  99. button .08.010 \
  100.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  101.     -highlightthickness 0 -padx 9 -pady 3 -text a -width 5 
  102. grid .08.010 \
  103.     -column 0 -row 1 -columnspan 1 -rowspan 1 -padx 2 -pady 2 
  104.  
  105. button .08.011 \
  106.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  107.     -highlightthickness 0 -padx 9 -pady 3 -text grid -width 5 
  108. grid .08.011 \
  109.     -column 1 -row 1 -columnspan 1 -rowspan 1 -padx 2 -pady 2 
  110.  
  111. button .08.012 \
  112.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  113.     -highlightthickness 0 -padx 9 -pady 3 -text this -width 5 
  114. grid .08.012 \
  115.     -column 1 -row 0 -columnspan 1 -rowspan 1 -padx 2 -pady 2 
  116.  
  117. button .08.013 \
  118.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  119.     -highlightthickness 0 -padx 9 -pady 3 -text is -width 5 
  120. grid .08.013 \
  121.     -column 2 -row 0 -columnspan 1 -rowspan 1 -padx 2 -pady 2 
  122.  
  123. button .08.014 \
  124.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  125.     -highlightthickness 0 -padx 9 -pady 3 -text layout -width 5 
  126. grid .08.014 \
  127.     -column 2 -row 1 -columnspan 1 -rowspan 1 -padx 2 -pady 2 
  128.  
  129.  
  130. grid columnconf . 0 -weight 1
  131. grid columnconf . 1 -weight 1
  132. grid rowconf . 1 -weight 1
  133.  
  134. main $argc $argv
  135.